﻿
Public Class IndicadorLN

    Private objIndicadorAD As IndicadorAD

    Public Sub New()
        objIndicadorAD = New IndicadorAD
    End Sub

    Public Function fBuscarUniversidad() As DataSet
        'Buscara en la BD las universidades registradas
        Dim dsUniversidad As New DataSet

        dsUniversidad = objIndicadorAD.fBuscarUniversidad()
        If dsUniversidad Is Nothing Then
            Return Nothing
        End If
        Return dsUniversidad
    End Function

    'Public Sub pRegistrarPromocion(ByVal pPromocion As PromocionEN)
    '    If objPromocionAD.fRegistrarPromocion(pPromocion) = False Then
    '        MsgBox("Se presentaron problemas al registrar la nueva promoción", MsgBoxStyle.Information, "Aviso")
    '    Else
    '        MsgBox("La promoción fue registrada correctamente", MsgBoxStyle.Information, "Aviso")
    '    End If
    'End Sub

    'Public Sub pModificarPromocion(ByVal pPromocion As PromocionEN)
    '    If objPromocionAD.fModificarPromocion(pPromocion) = False Then
    '        MsgBox("Se presentaron problemas al modificar la promoción", MsgBoxStyle.Information, "Aviso")
    '    Else
    '        MsgBox("La promoción fue actualizada correctamente", MsgBoxStyle.Information, "Aviso")
    '    End If
    'End Sub

    'Public Function fBuscarPromocion(ByVal pCodigo As String, ByVal pNombre As String, ByVal pFechaInicio As String, ByVal pFechaFin As String, ByVal pEstado As String) As List(Of PromocionEN)
    '    'Buscara en la BD de acuerdo a los criterios de busqueda
    '    Return objPromocionAD.fBuscarPromocion(pCodigo, pNombre, pFechaInicio, pFechaFin, pEstado)
    'End Function

    'Public Function fBuscarPromocion(ByVal pIDPromocion As String) As PromocionEN
    '    Return objPromocionAD.fBuscarPromocion(pIDPromocion)
    'End Function

    'Public Function fEliminarPromocion(ByVal pIdPromocion As String) As Boolean
    '    Return objPromocionAD.fEliminarPromocion(pIdPromocion)
    'End Function

    'Public Function fValidarPromociones() As Boolean
    '    Return objPromocionAD.fValidarPromociones()
    'End Function

    'Public Function fBuscarEstado() As DataSet
    '    'Buscara en la BD (en la tabla Parametros) los estados de las promociones
    '    Dim dsEstadoPromocion As New DataSet

    '    dsEstadoPromocion = objPromocionAD.fBuscarEstadoPromocion()
    '    'If dsEstadoPromocion Is Nothing Then
    '    '    Return Nothing
    '    'End If
    '    Return dsEstadoPromocion
    'End Function

    ''Funcion que carga los valores definidos para cantidad minima de adelanto y cantidad minima de dias necesarias para crear una promocion
    'Public Function fBuscarParametrosIniciales() As DataSet
    '    'Buscara en la BD (en la tabla Parametros) los parametros iniciales de las promociones
    '    Dim dsParametrosPromocion As New DataSet

    '    dsParametrosPromocion = objPromocionAD.fBuscarParametrosPromocion()
    '    Return dsParametrosPromocion
    'End Function
End Class
